home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / pack2.stk < prev    next >
Encoding:
Text File  |  1994-08-24  |  338 b   |  11 lines
  1. ;; Basic geometry management with the packer (fill and expand options)
  2.  
  3. (label '.l4 :text "Label #4" :background "red")
  4. (label '.l5 :text "Label #5" :background "blue")
  5. (label '.l6 :text "Label #6" :background "green")
  6.  
  7. (pack .l4 :side "top"    :fill "both")
  8. (pack .l5 :side "left"   :fill "both")
  9. (pack .l6 :side "bottom" :fill "both")
  10.  
  11.